inherited dm_funcionario: Tdm_funcionario
  OldCreateOrder = True
  Left = 284
  Top = 240
  Height = 347
  Width = 789
  inherited sqlConsulta: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'empresa'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    f.COD_FUNCIONARIO,'
      '    f.LIG_COD_EMPRESA,'
      '    f.LIG_COD_DEPARTAMENTO,'
      '    f.LIG_COD_USUARIO,'
      '    f.DESCRICAO,'
      '    f.CPF,'
      '    f.RG,'
      '    f.TITULO_ELEITOR,'
      '    f.RESERVISTA,'
      '    f.CNH,'
      '    f.CNH_CATEGORIA,'
      '    f.CTPS_PIS,'
      '    f.CTPS_NUMERO,'
      '    f.CTPS_SERIE,'
      '    f.CTPS_UF,'
      '    f.TEL_RESIDENCIAL,'
      '    f.TEL_CELULAR,'
      '    f.EMAIL,'
      '    f.DATA_NASC,'
      '    f.DATA_ADMISSAO,'
      '    f.DATA_DEMISSAO,'
      '    f.MOTIVO_DEMISSAO,'
      '    f.AVISO_PREVIO,'
      '    f.SALARIO_ATUAL,'
      '    f.LIG_COD_BANCO,'
      '    f.BANCO_AGENCIA,'
      '    f.BANCO_CONTA_CORRENTE,'
      '    f.ESCOLARIDADE,'
      '    f.NATURALIDADE,'
      '    f.FILIACAO_PAI,'
      '    f.FILIACAO_MAE,'
      '    f.ESTADO_CIVIL,'
      '    f.CONJUGUE,'
      '    f.ENDERECO,'
      '    f.CEP,'
      '    f.NUMERO,'
      '    f.COMPLEMENTO,'
      '    f.BAIRRO,'
      '    f.LOCALIDADE,'
      '    f.UF,'
      '    f.SITUACAO,'
      '    f.OBS,'
      '    f.DATA_CAD,'
      '    f.DATA_ALTERACAO,'
      '    a.descricao_multiempresa,'
      '    b.descricao as departamento,'
      '    c.descricao as banco,'
      '    d.login'
      'from funcionario f'
      'left join empresa a on (a.cod_empresa = f.lig_cod_empresa)'
      
        'left join empresa_departamento b on (b.cod_departamento = f.lig_' +
        'cod_departamento)'
      'left join banco c on (c.codigo = f.lig_cod_banco)'
      'left join usuario d on (d.cod_usuario = f.lig_cod_usuario)'
      'where f.lig_cod_empresa = :empresa')
    Left = 376
  end
  inherited dspConsulta: TDataSetProvider
    Left = 376
  end
  inherited cdsConsulta: TClientDataSet
    Left = 376
    object cdsConsultaCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      Required = True
    end
    object cdsConsultaLIG_COD_EMPRESA: TIntegerField
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsConsultaLIG_COD_DEPARTAMENTO: TIntegerField
      FieldName = 'LIG_COD_DEPARTAMENTO'
      Required = True
    end
    object cdsConsultaLIG_COD_USUARIO: TIntegerField
      FieldName = 'LIG_COD_USUARIO'
    end
    object cdsConsultaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaCPF: TStringField
      FieldName = 'CPF'
      Required = True
      Size = 15
    end
    object cdsConsultaRG: TStringField
      FieldName = 'RG'
      Required = True
      Size = 15
    end
    object cdsConsultaTITULO_ELEITOR: TStringField
      FieldName = 'TITULO_ELEITOR'
      Size = 15
    end
    object cdsConsultaRESERVISTA: TStringField
      FieldName = 'RESERVISTA'
      Size = 50
    end
    object cdsConsultaCNH: TStringField
      FieldName = 'CNH'
    end
    object cdsConsultaCNH_CATEGORIA: TStringField
      FieldName = 'CNH_CATEGORIA'
      FixedChar = True
      Size = 2
    end
    object cdsConsultaCTPS_PIS: TStringField
      FieldName = 'CTPS_PIS'
      Size = 30
    end
    object cdsConsultaCTPS_NUMERO: TStringField
      FieldName = 'CTPS_NUMERO'
      Size = 30
    end
    object cdsConsultaCTPS_SERIE: TStringField
      FieldName = 'CTPS_SERIE'
      Size = 5
    end
    object cdsConsultaCTPS_UF: TStringField
      FieldName = 'CTPS_UF'
      Size = 3
    end
    object cdsConsultaTEL_RESIDENCIAL: TStringField
      FieldName = 'TEL_RESIDENCIAL'
    end
    object cdsConsultaTEL_CELULAR: TStringField
      FieldName = 'TEL_CELULAR'
    end
    object cdsConsultaEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object cdsConsultaDATA_NASC: TDateField
      FieldName = 'DATA_NASC'
    end
    object cdsConsultaDATA_ADMISSAO: TDateField
      FieldName = 'DATA_ADMISSAO'
      Required = True
    end
    object cdsConsultaDATA_DEMISSAO: TDateField
      FieldName = 'DATA_DEMISSAO'
    end
    object cdsConsultaMOTIVO_DEMISSAO: TStringField
      FieldName = 'MOTIVO_DEMISSAO'
      Size = 50
    end
    object cdsConsultaAVISO_PREVIO: TStringField
      FieldName = 'AVISO_PREVIO'
      Size = 5
    end
    object cdsConsultaSALARIO_ATUAL: TFMTBCDField
      FieldName = 'SALARIO_ATUAL'
      Precision = 15
      Size = 2
    end
    object cdsConsultaLIG_COD_BANCO: TIntegerField
      FieldName = 'LIG_COD_BANCO'
    end
    object cdsConsultaBANCO_AGENCIA: TStringField
      FieldName = 'BANCO_AGENCIA'
      Size = 10
    end
    object cdsConsultaBANCO_CONTA_CORRENTE: TStringField
      FieldName = 'BANCO_CONTA_CORRENTE'
      Size = 15
    end
    object cdsConsultaESCOLARIDADE: TStringField
      FieldName = 'ESCOLARIDADE'
      Size = 50
    end
    object cdsConsultaNATURALIDADE: TStringField
      FieldName = 'NATURALIDADE'
      Size = 50
    end
    object cdsConsultaFILIACAO_PAI: TStringField
      FieldName = 'FILIACAO_PAI'
      Size = 50
    end
    object cdsConsultaFILIACAO_MAE: TStringField
      FieldName = 'FILIACAO_MAE'
      Size = 50
    end
    object cdsConsultaESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      Size = 30
    end
    object cdsConsultaCONJUGUE: TStringField
      FieldName = 'CONJUGUE'
      Size = 50
    end
    object cdsConsultaENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 50
    end
    object cdsConsultaCEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object cdsConsultaNUMERO: TIntegerField
      FieldName = 'NUMERO'
    end
    object cdsConsultaCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cdsConsultaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 30
    end
    object cdsConsultaLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Size = 50
    end
    object cdsConsultaUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 3
    end
    object cdsConsultaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsConsultaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaDESCRICAO_MULTIEMPRESA: TStringField
      FieldName = 'DESCRICAO_MULTIEMPRESA'
      Size = 50
    end
    object cdsConsultaDEPARTAMENTO: TStringField
      FieldName = 'DEPARTAMENTO'
      Size = 100
    end
    object cdsConsultaBANCO: TStringField
      FieldName = 'BANCO'
      Size = 100
    end
    object cdsConsultaLOGIN: TStringField
      FieldName = 'LOGIN'
      Size = 30
    end
    object cdsConsultasqlConsultaUser: TDataSetField
      FieldName = 'sqlConsultaUser'
    end
    object cdsConsultasqlConsultaUserEmp: TDataSetField
      FieldName = 'sqlConsultaUserEmp'
    end
    object cdsConsultasqlConsultaHorario: TDataSetField
      FieldName = 'sqlConsultaHorario'
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_funcionario,1)'
      'FROM RDB$DATABASE')
    Left = 235
    Top = 212
  end
  inherited dspRegistro: TDataSetProvider
    Options = [poCascadeDeletes, poCascadeUpdates]
    Left = 448
  end
  inherited cdsRegistro: TClientDataSet
    OnReconcileError = cdsRegistroReconcileError
    Left = 448
    object cdsRegistroCOD_FUNCIONARIO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_FUNCIONARIO'
      Required = True
    end
    object cdsRegistroLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsRegistroLIG_COD_DEPARTAMENTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_DEPARTAMENTO'
      Required = True
    end
    object cdsRegistroLIG_COD_USUARIO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_USUARIO'
    end
    object cdsRegistroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsRegistroCPF: TStringField
      Alignment = taCenter
      FieldName = 'CPF'
      Required = True
      Size = 15
    end
    object cdsRegistroRG: TStringField
      Alignment = taCenter
      FieldName = 'RG'
      Required = True
      Size = 15
    end
    object cdsRegistroTITULO_ELEITOR: TStringField
      Alignment = taCenter
      FieldName = 'TITULO_ELEITOR'
      Size = 15
    end
    object cdsRegistroRESERVISTA: TStringField
      Alignment = taCenter
      FieldName = 'RESERVISTA'
      Size = 50
    end
    object cdsRegistroCNH: TStringField
      Alignment = taCenter
      FieldName = 'CNH'
    end
    object cdsRegistroCNH_CATEGORIA: TStringField
      FieldName = 'CNH_CATEGORIA'
      FixedChar = True
      Size = 2
    end
    object cdsRegistroCTPS_PIS: TStringField
      Alignment = taCenter
      FieldName = 'CTPS_PIS'
      Size = 30
    end
    object cdsRegistroCTPS_NUMERO: TStringField
      Alignment = taCenter
      FieldName = 'CTPS_NUMERO'
      Size = 30
    end
    object cdsRegistroCTPS_SERIE: TStringField
      Alignment = taCenter
      FieldName = 'CTPS_SERIE'
      Size = 5
    end
    object cdsRegistroCTPS_UF: TStringField
      FieldName = 'CTPS_UF'
      Size = 3
    end
    object cdsRegistroTEL_RESIDENCIAL: TStringField
      Alignment = taCenter
      FieldName = 'TEL_RESIDENCIAL'
    end
    object cdsRegistroTEL_CELULAR: TStringField
      Alignment = taCenter
      FieldName = 'TEL_CELULAR'
    end
    object cdsRegistroEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object cdsRegistroDATA_NASC: TDateField
      FieldName = 'DATA_NASC'
    end
    object cdsRegistroDATA_ADMISSAO: TDateField
      FieldName = 'DATA_ADMISSAO'
      Required = True
    end
    object cdsRegistroDATA_DEMISSAO: TDateField
      FieldName = 'DATA_DEMISSAO'
    end
    object cdsRegistroMOTIVO_DEMISSAO: TStringField
      FieldName = 'MOTIVO_DEMISSAO'
      Size = 50
    end
    object cdsRegistroAVISO_PREVIO: TStringField
      FieldName = 'AVISO_PREVIO'
      Size = 5
    end
    object cdsRegistroSALARIO_ATUAL: TFMTBCDField
      FieldName = 'SALARIO_ATUAL'
      Precision = 15
      Size = 2
    end
    object cdsRegistroLIG_COD_BANCO: TIntegerField
      FieldName = 'LIG_COD_BANCO'
    end
    object cdsRegistroBANCO_AGENCIA: TStringField
      Alignment = taCenter
      FieldName = 'BANCO_AGENCIA'
      Size = 10
    end
    object cdsRegistroBANCO_CONTA_CORRENTE: TStringField
      Alignment = taCenter
      FieldName = 'BANCO_CONTA_CORRENTE'
      Size = 15
    end
    object cdsRegistroESCOLARIDADE: TStringField
      FieldName = 'ESCOLARIDADE'
      Size = 50
    end
    object cdsRegistroNATURALIDADE: TStringField
      FieldName = 'NATURALIDADE'
      Size = 50
    end
    object cdsRegistroFILIACAO_PAI: TStringField
      FieldName = 'FILIACAO_PAI'
      Size = 50
    end
    object cdsRegistroFILIACAO_MAE: TStringField
      FieldName = 'FILIACAO_MAE'
      Size = 50
    end
    object cdsRegistroESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      Size = 30
    end
    object cdsRegistroCONJUGUE: TStringField
      FieldName = 'CONJUGUE'
      Size = 50
    end
    object cdsRegistroENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 50
    end
    object cdsRegistroCEP: TStringField
      Alignment = taCenter
      FieldName = 'CEP'
      Size = 10
    end
    object cdsRegistroNUMERO: TIntegerField
      FieldName = 'NUMERO'
    end
    object cdsRegistroCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cdsRegistroBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 30
    end
    object cdsRegistroLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Size = 50
    end
    object cdsRegistroUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 3
    end
    object cdsRegistroSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsRegistroOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsRegistroDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRegistrosqlFuncHorario: TDataSetField
      FieldName = 'sqlFuncHorario'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_funcionario'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    f.COD_FUNCIONARIO,'
      '    f.LIG_COD_EMPRESA,'
      '    f.LIG_COD_DEPARTAMENTO,'
      '    f.LIG_COD_USUARIO,'
      '    f.DESCRICAO,'
      '    f.CPF,'
      '    f.RG,'
      '    f.TITULO_ELEITOR,'
      '    f.RESERVISTA,'
      '    f.CNH,'
      '    f.CNH_CATEGORIA,'
      '    f.CTPS_PIS,'
      '    f.CTPS_NUMERO,'
      '    f.CTPS_SERIE,'
      '    f.CTPS_UF,'
      '    f.TEL_RESIDENCIAL,'
      '    f.TEL_CELULAR,'
      '    f.EMAIL,'
      '    f.DATA_NASC,'
      '    f.DATA_ADMISSAO,'
      '    f.DATA_DEMISSAO,'
      '    f.MOTIVO_DEMISSAO,'
      '    f.AVISO_PREVIO,'
      '    f.SALARIO_ATUAL,'
      '    f.LIG_COD_BANCO,'
      '    f.BANCO_AGENCIA,'
      '    f.BANCO_CONTA_CORRENTE,'
      '    f.ESCOLARIDADE,'
      '    f.NATURALIDADE,'
      '    f.FILIACAO_PAI,'
      '    f.FILIACAO_MAE,'
      '    f.ESTADO_CIVIL,'
      '    f.CONJUGUE,'
      '    f.ENDERECO,'
      '    f.CEP,'
      '    f.NUMERO,'
      '    f.COMPLEMENTO,'
      '    f.BAIRRO,'
      '    f.LOCALIDADE,'
      '    f.UF,'
      '    f.SITUACAO,'
      '    f.OBS,'
      '    f.DATA_CAD,'
      '    f.DATA_ALTERACAO'
      'from FUNCIONARIO f'
      'where f.cod_funcionario = :cod_funcionario')
    Left = 448
  end
  object dsMestre_Detalhe_Consulta: TDataSource
    DataSet = sqlConsulta
    Left = 275
    Top = 18
  end
  object sqlConsultaHorario: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FUNCIONARIO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  f.cod_horario,'
      '  f.lig_cod_funcionario,'
      '  f.dia_semana,'
      '  f.hora_entrada,'
      '  f.hora_saida_intervalo,'
      '  f.hora_entrada_intervalo,'
      '  f.hora_saida,'
      '  f.data_cad,'
      '  f.data_alteracao'
      'from FUNCIONARIO_HORARIO f'
      'where f.lig_cod_funcionario = :cod_funcionario'
      'order by f.cod_horario')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 155
    Top = 18
    object sqlConsultaHorarioCOD_HORARIO: TIntegerField
      FieldName = 'COD_HORARIO'
      Required = True
    end
    object sqlConsultaHorarioLIG_COD_FUNCIONARIO: TIntegerField
      FieldName = 'LIG_COD_FUNCIONARIO'
      Required = True
    end
    object sqlConsultaHorarioDIA_SEMANA: TStringField
      FieldName = 'DIA_SEMANA'
      Required = True
    end
    object sqlConsultaHorarioHORA_ENTRADA: TTimeField
      FieldName = 'HORA_ENTRADA'
      Required = True
    end
    object sqlConsultaHorarioHORA_SAIDA_INTERVALO: TTimeField
      FieldName = 'HORA_SAIDA_INTERVALO'
      Required = True
    end
    object sqlConsultaHorarioHORA_ENTRADA_INTERVALO: TTimeField
      FieldName = 'HORA_ENTRADA_INTERVALO'
      Required = True
    end
    object sqlConsultaHorarioHORA_SAIDA: TTimeField
      FieldName = 'HORA_SAIDA'
      Required = True
    end
    object sqlConsultaHorarioDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaHorarioDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object sqlConsultaUserEmp: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'LIG_COD_USUARIO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.descricao_multiempresa,'
      '  b.descricao as grupo'
      'from usuario_multiempresa u'
      'left join empresa a on (a.cod_empresa = u.lig_cod_empresa)'
      'left join usuario_grupo b on (b.cod_grupo = u.lig_cod_grupo)'
      'where u.lig_cod_usuario = :lig_cod_usuario'
      'order by a.descricao_multiempresa')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 157
    Top = 65
    object sqlConsultaUserEmpDESCRICAO_MULTIEMPRESA: TStringField
      FieldName = 'DESCRICAO_MULTIEMPRESA'
      Size = 50
    end
    object sqlConsultaUserEmpGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 100
    end
  end
  object sqlConsultaUser: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'LIG_COD_USUARIO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    u.descricao,'
      '    u.login,'
      '    u.senha_data_expira,'
      '    u.alerta_email,'
      '    u.alerta_sms,'
      '    u.permitir_acesso,'
      '    u.permitir_acesso_restrito,'
      '    u.senha_atualizar,'
      '    u.alerta_email_enviar,'
      '    u.alerta_sms_enviar,'
      '    u.data_cad,'
      '    u.data_alteracao,'
      '    u.foto'
      'from usuario u'
      'where u.cod_usuario = :lig_cod_usuario')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 157
    Top = 114
    object sqlConsultaUserDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlConsultaUserLOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
      Size = 30
    end
    object sqlConsultaUserSENHA_DATA_EXPIRA: TDateField
      FieldName = 'SENHA_DATA_EXPIRA'
    end
    object sqlConsultaUserALERTA_EMAIL: TStringField
      FieldName = 'ALERTA_EMAIL'
      Size = 100
    end
    object sqlConsultaUserALERTA_SMS: TStringField
      FieldName = 'ALERTA_SMS'
      Size = 15
    end
    object sqlConsultaUserPERMITIR_ACESSO: TStringField
      FieldName = 'PERMITIR_ACESSO'
      Size = 5
    end
    object sqlConsultaUserPERMITIR_ACESSO_RESTRITO: TStringField
      FieldName = 'PERMITIR_ACESSO_RESTRITO'
      Size = 5
    end
    object sqlConsultaUserSENHA_ATUALIZAR: TStringField
      FieldName = 'SENHA_ATUALIZAR'
      Size = 5
    end
    object sqlConsultaUserALERTA_EMAIL_ENVIAR: TStringField
      FieldName = 'ALERTA_EMAIL_ENVIAR'
      Size = 5
    end
    object sqlConsultaUserALERTA_SMS_ENVIAR: TStringField
      FieldName = 'ALERTA_SMS_ENVIAR'
      Size = 5
    end
    object sqlConsultaUserDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaUserDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object sqlConsultaUserFOTO: TStringField
      FieldName = 'FOTO'
      Size = 30
    end
  end
  object cdsConsultaUser: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaUser
    Params = <>
    Left = 45
    Top = 114
    object cdsConsultaUserDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaUserLOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
      Size = 30
    end
    object cdsConsultaUserSENHA_DATA_EXPIRA: TDateField
      FieldName = 'SENHA_DATA_EXPIRA'
    end
    object cdsConsultaUserALERTA_EMAIL: TStringField
      FieldName = 'ALERTA_EMAIL'
      Size = 100
    end
    object cdsConsultaUserALERTA_SMS: TStringField
      FieldName = 'ALERTA_SMS'
      Size = 15
    end
    object cdsConsultaUserPERMITIR_ACESSO: TStringField
      FieldName = 'PERMITIR_ACESSO'
      Size = 5
    end
    object cdsConsultaUserPERMITIR_ACESSO_RESTRITO: TStringField
      FieldName = 'PERMITIR_ACESSO_RESTRITO'
      Size = 5
    end
    object cdsConsultaUserSENHA_ATUALIZAR: TStringField
      FieldName = 'SENHA_ATUALIZAR'
      Size = 5
    end
    object cdsConsultaUserALERTA_EMAIL_ENVIAR: TStringField
      FieldName = 'ALERTA_EMAIL_ENVIAR'
      Size = 5
    end
    object cdsConsultaUserALERTA_SMS_ENVIAR: TStringField
      FieldName = 'ALERTA_SMS_ENVIAR'
      Size = 5
    end
    object cdsConsultaUserDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaUserDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaUserFOTO: TStringField
      FieldName = 'FOTO'
      Size = 30
    end
  end
  object cdsConsultaUserEmp: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaUserEmp
    Params = <>
    Left = 45
    Top = 65
    object cdsConsultaUserEmpDESCRICAO_MULTIEMPRESA: TStringField
      FieldName = 'DESCRICAO_MULTIEMPRESA'
      Size = 50
    end
    object cdsConsultaUserEmpGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 100
    end
  end
  object cdsConsultaHorario: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaHorario
    Params = <>
    Left = 45
    Top = 18
    object cdsConsultaHorarioCOD_HORARIO: TIntegerField
      FieldName = 'COD_HORARIO'
      Required = True
    end
    object cdsConsultaHorarioLIG_COD_FUNCIONARIO: TIntegerField
      FieldName = 'LIG_COD_FUNCIONARIO'
      Required = True
    end
    object cdsConsultaHorarioDIA_SEMANA: TStringField
      FieldName = 'DIA_SEMANA'
      Required = True
    end
    object cdsConsultaHorarioHORA_ENTRADA: TTimeField
      FieldName = 'HORA_ENTRADA'
      Required = True
    end
    object cdsConsultaHorarioHORA_SAIDA_INTERVALO: TTimeField
      FieldName = 'HORA_SAIDA_INTERVALO'
      Required = True
    end
    object cdsConsultaHorarioHORA_ENTRADA_INTERVALO: TTimeField
      FieldName = 'HORA_ENTRADA_INTERVALO'
      Required = True
    end
    object cdsConsultaHorarioHORA_SAIDA: TTimeField
      FieldName = 'HORA_SAIDA'
      Required = True
    end
    object cdsConsultaHorarioDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaHorarioDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object dsMestre_Detalhe: TDataSource
    DataSet = sqlRegistro
    Left = 529
    Top = 18
  end
  object sqlFuncHorario: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FUNCIONARIO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  f.cod_horario,'
      '  f.lig_cod_funcionario,'
      '  f.dia_semana,'
      '  f.hora_entrada,'
      '  f.hora_saida_intervalo,'
      '  f.hora_entrada_intervalo,'
      '  f.hora_saida,'
      '  f.data_cad,'
      '  f.data_alteracao'
      'from FUNCIONARIO_HORARIO f'
      'where f.lig_cod_funcionario = :cod_funcionario')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 617
    Top = 18
    object sqlFuncHorarioCOD_HORARIO: TIntegerField
      FieldName = 'COD_HORARIO'
      Required = True
    end
    object sqlFuncHorarioLIG_COD_FUNCIONARIO: TIntegerField
      FieldName = 'LIG_COD_FUNCIONARIO'
      Required = True
    end
    object sqlFuncHorarioDIA_SEMANA: TStringField
      FieldName = 'DIA_SEMANA'
      Required = True
    end
    object sqlFuncHorarioHORA_ENTRADA: TTimeField
      FieldName = 'HORA_ENTRADA'
      Required = True
    end
    object sqlFuncHorarioHORA_SAIDA_INTERVALO: TTimeField
      FieldName = 'HORA_SAIDA_INTERVALO'
      Required = True
    end
    object sqlFuncHorarioHORA_ENTRADA_INTERVALO: TTimeField
      FieldName = 'HORA_ENTRADA_INTERVALO'
      Required = True
    end
    object sqlFuncHorarioHORA_SAIDA: TTimeField
      FieldName = 'HORA_SAIDA'
      Required = True
    end
    object sqlFuncHorarioDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlFuncHorarioDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object cdsFuncHorario: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlFuncHorario
    Params = <>
    Left = 697
    Top = 18
    object cdsFuncHorarioCOD_HORARIO: TIntegerField
      FieldName = 'COD_HORARIO'
      Required = True
    end
    object cdsFuncHorarioLIG_COD_FUNCIONARIO: TIntegerField
      FieldName = 'LIG_COD_FUNCIONARIO'
      Required = True
    end
    object cdsFuncHorarioDIA_SEMANA: TStringField
      FieldName = 'DIA_SEMANA'
      Required = True
    end
    object cdsFuncHorarioHORA_ENTRADA: TTimeField
      FieldName = 'HORA_ENTRADA'
      Required = True
    end
    object cdsFuncHorarioHORA_SAIDA_INTERVALO: TTimeField
      FieldName = 'HORA_SAIDA_INTERVALO'
      Required = True
    end
    object cdsFuncHorarioHORA_ENTRADA_INTERVALO: TTimeField
      FieldName = 'HORA_ENTRADA_INTERVALO'
      Required = True
    end
    object cdsFuncHorarioHORA_SAIDA: TTimeField
      FieldName = 'HORA_SAIDA'
      Required = True
    end
    object cdsFuncHorarioDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsFuncHorarioDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object cdsAuxHorario: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 275
    Top = 130
    Data = {
      9D0000009619E0BD0100000018000000050000000000030000009D000A444941
      5F53454D414E4101004900000001000557494454480200020014000C484F5241
      5F454E5452414441040007000000000014484F52415F53414944415F494E5445
      5256414C4F040007000000000016484F52415F454E54524144415F494E544552
      56414C4F04000700000000000A484F52415F5341494441040007000000000000
      00}
    object cdsAuxHorarioDIA_SEMANA: TStringField
      FieldName = 'DIA_SEMANA'
    end
    object cdsAuxHorarioHORA_ENTRADA: TTimeField
      FieldName = 'HORA_ENTRADA'
    end
    object cdsAuxHorarioHORA_SAIDA_INTERVALO: TTimeField
      FieldName = 'HORA_SAIDA_INTERVALO'
    end
    object cdsAuxHorarioHORA_ENTRADA_INTERVALO: TTimeField
      FieldName = 'HORA_ENTRADA_INTERVALO'
    end
    object cdsAuxHorarioHORA_SAIDA: TTimeField
      FieldName = 'HORA_SAIDA'
    end
  end
  object qryPKFuncHorario: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_funcionario_horario,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 322
    Top = 212
    object qryPKFuncHorarioGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
end
